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**FILE**1D**CLSIODB 

ccccccce sk SSSSSSSS III] 000000 DDDDDDDD BBBB8B8B 
cceccccce = lb SSSSSSSS HII] 000000 DDDDDDDD BBBBBBBB 

cc LL S$ I] 00 00 OD DD BB 8B 

cc LL SS I] 00 00 OD DD BB BB 

cc LL $$ I] 00 00 OD DD BB BB 

cc LL SS I] 00 00 DD DD 88 BB 

cc LL SSSSSS I] 00 00 OD DD 88888888 

cc LL SSSSSS I] 00 00 0D DD 88888 

cc LL SS I] 00 00 DD DD 8B BB 

cc LL SS I] 00 00 OD DD 8B BB 

cc LL SS I] 00 00 DD DD 88 8B eee 

cc LL SS I] 00 00 OD DD 88 BB eee 
CCCCCCCC = LLLLLLLLLL § SSSSSSSS III! 000000 DDDDDDDD BBBBBBBB eoee 
CCCCCCCC =LLLLLLLLLL §6SSSSSSSS IHI1I1 000000 DDDDDDDD BBBBBBBB eee 

LL HII] SSSSSSSS 

LL HI! SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL il SSSSSS 

LL I] SS 

LL II SS 

LL I] SS 

LL I] SS 

LLELLLLLLLL HII] SSSSSSSS 

LLLLLLLLLL III] SSSSSSSS 
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CLSIODB = Entry and Initialization 

Traversing Subroutines = System Block 
Traversing Subroutines = Path Block 
Traversing Subroutines = Device Data Blocks 
Traversing Subroutines = Unit Control Block 
Traversing Subroutines - Shared Memory Blocks 
Counting Subroutines 
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FACILITY: UETP, Regression Tests and Performance Measurement 


ABSTRACT: 

This module steps through the I/0 databases maintained by VMS to keep 
track of peripherals in a cluster. From that (potential y changing 
database in ve space accessible only in exec or kernel modes, 

the module builds a stable representation in PO space accessible in 
user mode. That representation is consistent within itself; by the 
time the routine which calls UETPSCLSIODB reads the representation, 
it may no longer reflect the state of the cluster. 


ENVIRONMENT: 

Runs in kernel mode. Runs at elevated IPL and holds a mutex durin 
which time system services and error recovery are prohibited. Mus 
prevent paging while at elevated IPL. 


AUTHOR: Richard N. Holstein, CREATION DATE: 06-Jan-1983 
MODIFIED BY: 


V03-006 RNHO006 Richerd N. Holstein Perey 1964 
Fix bug in V3-5 causing exception above ASTDEL. 
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V03-001 RNHOOO1 Richard N. Holstein, 14-Jan-1983 
Fix access violations. 


2 ; v03-005 RNHO00S Richard N. Holstein 30-Mar-1986 
3 Ignore UDAs when collecting system blocks 
é ; V03-004 RNHO004 Richard N. Holstein 22-Dec-1983 
: Return PB$W_S ia‘ PB$B _RSTATE, PBS6_ CBLL ére° “pase. PO_STS 
o7 : and PB$B_P1_ “318 ° 
63 ; V03-003 RNHO003 ard N. Holstein, _ 15-Jul-1983 
8 28 ; Return UCBSL _DEVEHAR® and UCase _DEVCHAR2. 
68 ; v03-002 pynop 02 Richard N. Holstein, 23-Jun-1983 
§ ; bust with word hengeh arithmetic on addresses. Fix bug 
5 3 ith locating suf ent memory. 
gO: 
{> 3 
$000 74 ; 
0000 tS 3 
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vbe 008 DECLARATIONS <i gS Ee -13b2 80:33:48 LOETPSY. SREICLSIODB_MARS 1 ’ 3) 
a4 -SBTTL DECLARATIONS 
5 ; INCLUDE FILES: 
1 3 SYSSLIBRARY:LIB.MLB : For varoius macro definitions 
¢ 3 SYSSLIBRARY:UETP.MLB 3 For UETP=specific definitions 
7 3 SYSSSYSTEM:SYS.STB ; Required during Linking 
3 3 
0 $ 3; MACROS 
} »ENABLE SUPPRESSION 
$? 90 SADPDEF ; Adapter control block 
0 91 SDDBDEF 3 Device data block 
00 38 SIPLDEF ; Interrupt priority levels 
848 9 SMPMDEF ; Mulitport memory 
000 94 7 SPAPDTDEF ; Clespecific extensions to the PDT 
0000 95 ; SPDTDEF ; Port descriptor table 
0000 % $PBOEF ; Path block offsets 
0000 97 SPRDEF ; Processor register addresses 
494 98 SPSLDEF ; Processor status longword bits 
000 99 SSBOEF 3 syetee block offsets 
0000 100 $SHBDEF 3; Shared memory control block 
0000 101 SSHDDEF ; Shared memory datapage 
4 19 SSHRDEF ; Shared messages 
000 10 SSSDEF 3; System Service condition codes 
0000 104 SSTSDEF ; Status return values 
4 105 SUCBDEF ; Unit control block : 
000 106 SUE TIDBDEF ; UETP 1/0 database definitions 
0000 107 SUE TPDEF ; UETP 
0000 108 
0000 109 ; 
0900 119 ; EQUATED SYMBOLS: 
00000004 0000 V6 CLS_POINTER = 4 ; Offset on calling argument List of... 
000 11 3: «the address to which we return... 
B08 114 3 «--@ pointer to our cluster database 
00000008 0 115 LCL_POINTER = 8 ; Offset on calling argument List of... 
0000 118 3 .eethe address to which we return... 
00 11 3; ...8 pointer to our local database 
0000000C 000 118 MPM_POINTER = 12 ; Offset on calling erguaent list of... 
119 3 «the address to which we return... 
1 9 3 «+8 pointer to our shared memory... 
1 3 «-. database 
00000010 0 1 § FLAGS = 16 : Offset on calling argument List of... 
0 1 3 go. tags governing our execution. 
00 } : ; See SUETIOBDEF for definitions 
09 1 § UETPS_NOTCMPLT = - ; Status return... 
1 UETPS _FACILITY@STS$V_FAC_NO!- ; ...if we run out of PO space... 
007411C2 000 128 SHR$_ROTCMPLT!STSS$K_ERROR 3 ...before we run out of database 
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} 9 ; -SBTTL Local Storage for the Routine 
1 § : ge ebFtovaet $s sake. | the stack for local storage. We use an absolute 
1 3 to define o tfsets 1 nto the stack. What specer to be labels below 
134; is y iho offsets. Because we are also using the stack for subroutine 
135 ; calls, we must explicitly pass a reference if we want to access any of these 
: locations. 
1 8 : -PSECT SABS$,ABS 
00000000 123 .= ; Reset us to define offsets 
141 SAVE_RO ; Temporary RO storage 
00000004 ? 1? »BLKL 
6 4 144 SETSFM ; If SETSFM then SS fail mode.. 
oF 004 145 -BLKB 1 ; was set on entry to the routine 
00000008 iF 198 BLKB 3 : Keep this lLongword aligned 
00 148 CURRENT_AREA: ; Points to start of current data area. 
00000010 000 149 -BLKQ 1 3 ——s so it can accept the.. 
Bat 120 : -result of a memory mgt. service 
001 136 DB_COUNT: 3 ee of the amount of space we'll. 
00000014 pate 137 -BLKL 1 3 «eeneed to store a particular PO db 
Bate 155 OUR_FLAGS: : veo woh eane storage of flags.. 
00000018 Bois 128 -BLKL 1 3 «+-governing the info we're to return 
00000018 0018 158 LOCAL_LENGTH = . 3 Length of stack to reserve... 
0018 159 3; «--for local storage 
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Vv and Initialization -SEP=1 UETPSY.SRCICLSIODB.MAR; 1 (4) Vv 
-SBTTL CLSIODB = Entry and Initialization 


»DEFAULT DISPLACEMENT ,WORD 
«PSECT _UETPSCODE,EXE,NOWRT,PIC,SHR 
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FUNCTIONAL DESCRIPTION: 


This module steps through the I/0 databases maintained by VMS to keep 
track of peripherals in a cluster. From that (potential ? changing 
database in system space accessible only in exec or kernel modes, 

the module builds a stable representation in PU space accessible in 
user mode. That representation is consistent within itself; by the 
time the routine which calls UVETPSCLSIODB reads the representation, 
it may no longer reflect the state of the cluster. 


COOOCCOCSCOOOCOOoOoooCooo wa 


3 The representation built consists of seven kinds of records: a system 
3 record, a path record, a DDB record, a UCB record, a shared memory 
; record, an end record and a null record. The first five correspond 
; to similar items in the VMS 1/0 database. The end record gives a 
: convenient way to end if one traverses the data structure sequentially 
3 or if there are no records in a group (groups are defined below). 
: The null record is available to allow some housekeeping functions. It 
3 typically will not be present. See the SUETIDBDEF macro for record 
3 definitions. 
: Those records are organized into three groups. corresponding to the 
3 way VMS organizes its internal database. The first group has the 
: cluster database: a blocks, path blocks and devices accessible 
; only via SCS protocol. The second i has the local periepecete 
; on a system, devices that can be directly allocated. The third 

group has shared memory devices. An end record terminates each group. 


A formal parameter is allocated to return pointers for each group. 
Another parameter allows the omission of entire groups or of items 
within a group. The parameter descriptions below give more detail. 
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The database may be read two ways. One may read gh each group 
of records sequentially. In that case, each group looks Like 4 tree 
stretched out: a branch followed by all its subbranches, follcwed 
by the next branch. If a record points to any other dependent 
records, those records will follow it in sequence. For example, a 
DDB record will be followed by all of its UCB records. The address 
of the next record is the sum of the address of the current record 
and the contents of the length field of the current record. One may 
also selectively 90 through the database records one wants. In that 
case, one chains through record types and to their subtypes as one 
would access the VMS databases. 
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This seetion of the code receives control from the calling program. 
It initializes our data structures and starts the various routines 
which build up the PO databases. 


CALLING SEQUENCE: 


SOSSSSSSOSSSOSSSOSOSOOSOOSOSOSOOOSOSOSOSOSOOSOSOSOSOOOCOSOSOSoO 


SooQoooooo 


NOTE THAT CLSIODB IS TYPICALLY NOT CALLED DIRECTLY! RATHER IT IS 
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CALLED BY A CHANGE MODE TO KERNEL SYSTEM SERVICE! 


ret_status.wlc.v = SYSSCMKRNL (UETPSCLSIODB,arglst.rz.ra) 
WHERE arglst CONTAINS: 
count-of=longwords-to-follow.rl.v 
cls-pointer.wa.ra 
icl=-pointer.wa.ra 
Pt ne Rane 
flags.rlu.v 


OR IF ALREADY IN KERNEL MODE: 


POs, ptatye 968.9 = oe wena ee hk pea, a pm 
Lcl-pointer.wa.ral,{mpm-pointer.wa.raJ(,flags.rlu.vJ) 
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INPUT PARAMETERS: 


flags 
If a missing or if present and bits are set, return 
record type assigned to each bit. If bit is clear, do not 
return record type corresponding to that bit. Bits are defined 
in SUETIDBDEF. he bits are not all independent; see the 
PARAMS_CHECK subroutine. Optional argument. 


IMPLICIT INPUTS: 
VMS's internal database of cluster peripherals. 
OUTPUT PARAMETERS: 
cls-pointer 
f reference is present, a 2-longword array to receive 
starting and reed Roig of the PO database that we 


build for cluster items. Required argument, but may be 
specified as 0 if information is not required. 
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Lcl-pointer 

If reference is present, a 2-longword array to receive 
starting and ending addresses of the PO database that we 
build for local peripherals. Required argument, but may be 
specified as 0 if information is not required. 
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mpm-pointer 
If reference is present, a 2-longword array to receive 
starting and ending addresses of the PO database that we 
build for shared memories. Required argument, but may be 
specified as 0 if information is not required. 


IMPLICIT OUTPUTS: 


a database in PO space described in the Functional Description, 
above. 


COMPLETION CODES: 


S$S$_NORMAL 
We were able to build a PO database. 
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B 
40$: PUSHL 


(R7) Calculate, allocate and lock in WS... 
PUSHL CLS_POINTER(AP) 


Ll use for... 


d 
B ntry and Initialization UETPSY.SRCICLSIODB.MAR; 1 (4) 
5 3 
fe ; UETPS_NOTCMPLT 
tt § We though enough space was allocated to copy the database, but 
0 : we ran out of room anyway. 
p ; VMS error code otherwise. 
: ; SIDE EFFECTS: 
4 : PO space is expanded dynamically. Note that it is possible for a 
5 3 process to release this area (or areas) once the process is 
§ $ finished with it (them). 
a 
OFFC 3 39 -ENTRY UETPSCLSIODB, “*M<R2,R3,R4,R5,R6,R7,RB,RI,R1I0,R11> 
-m te § $0 35 SUBL2 #LOCAL_LENGTH,SP ; Allocate space for our local storage 
59 43 D 00 9 MOVL P,R9 ; Keep a copy so we can still use stack 
69 18 00 00 8F 0060 2C 0008 29% MOVCS  #0,#0,#0,#LOCAL_LENGTH,(R9) ; Clear out our local storage 
58 14 AJ 3 OOF 95 MOVAL OUR FLAGS(R9) ,RB 3; Set up defaults and see if... 
0598 0013 36 BSBW PARAMS CHECK 3 «» UETPSCLSIODB was correctly called 
0016 9 SSETSFM_S ENBFCG = #0 ; Clear SS fail mode Logatly 
50 09 D1 OOTF 98 CMPL #SS$_WASSET,RO ; Was it in effect previously? 
03 12 0022 99 NEQ 10$ ; BR if it was not 
04 A9 96 83 ; 39 108 INCB SETSFM(R9) ; Flag the fact if it was 
56 08 AD ODE 88 7 if ; MOVAL CURRENT peeseyt me ; Rg retains this address 
57 10 A9 ODE 0028 MOVAL DB_COUNT(R9),R7 3; R? retains this address 
CE AF DE 002F 4 MOVAL UETPSCLS10DB,- ; We must lock ourself in our WS... 
08 A9 032 305 CURRENT _AREA(R9) 
0655'CF DE 034 88 MOVAL UETPSCLSIODB_END,- 3 «because... 
OC Ad 0038 0 CURRENT _AREA74(R9) ; «..we won't be able to page... 
ber 38 SLKWSET_S INADR = (R6) i «.-once we're at elevated IPL 
04 A D5 boc? 10 TSTL CLS_POINTER(AP) ; Need we return shape of the cluster? 
ee aon 
O4F i§ 20$: SETIPL #IPL$_SCS ; Raise IPL to keep a constant database 
67 07 »b0 028 14 MOVL #UIDERDSK_FFREE, (R7) ; Initialize counter to minimum space 
50 00000000'GF 43 be 15 MOVAL 6*SCS$GQ_CONFIG,RO 3; Get the start of the cluster db... 
51 60 OD 5c 16 VL  $BSL_FLIRK(RO),R1 : ...and point to the first real $B 
5 €0 SF 1 BBS #UIDFLAGSV_MYSYS,- ; BR if we want to see the List of... 
03 14 a9 6} 18 OUR_FLAGS(R9) ,30$ : ...devices on the system cal Ling us 
51 61~—si0 64 19 ae MOVL  SBSC_FLINK(R1S,R1 : Otherwise, check other nodes only 
50 Dd 0067 = oe: Of ; Start out counting the cluster db 
14 4 ee re § a OUR_FLAGS(R9) 
wos 44 i : 9 SID_COUNT 
O56F "CF 5 FB 7 § CALLS #5,CALL_IT 
03 ae ates RO, 408 cet) ccarethine went Of 
ever ng wen 
01 3 5§ 7F § Rid 200$ BR - we failed fo count cluster db 
6 DD i 9 
0D 
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00000000 ' GF 
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CALLS # »FXPREG 
BLBS  R0.50$ 
RW 2008 
SETIPL #IPL$_SCS 
MOVAL G“SCSS$GQ_CONFIG,RO 
OVL SBSL_FLIAK(RO),R1 
BBS WULDFLAGSV MYSYs - 
OUR_FLAGS(R9) ,60$ 
MOVL  SBSC_FLINK(R15,R1 
PUSHL RO 
PUSHL QUR_FLAGS(R9) 
PUS r) 


USHL 
PUSHAL SID_TRAVERSE 
CALLS #2 -CALLIT 


SETIPL 
BLBS RO 70$ 
RW 6s 
SULWSET_S INADR = 
OVL  “#UIDSK END RTYPE,- 
UIDGNRC$B_TYPE (R11) 
TSTL LCL POINTER (AP) 
BNEQ Os 
BRW 120$ 
MOVL  G*SCH$GL_CURPCB,R4 
J$B G*SCHSIOCOCK 
MOVL #UIDENDSK_FFREE, (R7) 
PUSHL # 
PUSHL OUR FLAGS (R9) 
SHL oR 


PUSHL 

PUSHAL DDB. COUNT 

PUSHL G10C$6L DEVLIST 
5,CALL_IT 

BUSHR — #*RCROD 

MOVL —G*SCHSGL_CURPCB,R4 


$B G*SCHSIOONLOCK 
SETIPL #0 
POPR #*M<RO> 
BLBS RO,100$ 
BRwW 0 ‘ 
PUSHL 
PUSHL LSPOINTER(AP) 
CALLS Pit 
BLBS 
BRWwW 
MOVL e ee, CURPCB,R4 
JS8 G*SCHSIOCOCKR 
PUSHL #0 

PUSHL R_FLAGS(R9) 
PUSHL # 

PUSHAL DDB_TRAVERSE 
PUSHL 6% forsee DEVLIST 
CALLS 5,CALL_IT 


PUSHR #*M<RO>~ 


; Otherwise, check ot 


UETPSY.SRCIJCLSIODB.MAR; 1 


.--the cluster database 
BR if there were no problems 
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; We had prestene - bail out 

; Raise I 

; Get the start of phe st uster db... 
r 


L to keep a ieee » een 


-+-and point to the st real SB 
BR if we want to see the List of... 
. devices on the systen pat us 
er nodes only 


Copy the cluster database 


Reset IPL 

BR 4 ig A hed went OK 

BR = we o get cluster db 
Allow that area to page again 

Put a cap on what we return 


Need we return local peripherals? 
BR if not 


BR to shared memory 

We want the mutex on the local 1/0 db 
Grab the mutex, goto IPL$_ASTDEL 
Initialize counter to minimum space 
Count items in the local I/0 database 


Save status of counting routines 
We must release mutex on local 1/0 db 
peneees mutex. 

..and reset IPL 


BR if we got local pertaneres db 

We failed to get local 

Calculate, al ocate and sed in WS.. 
the space we'll use for.. 

; the local database 

BR if there was no problem 

There was some problem 

We want the mutex on the local 1/0 db 

Grab the mutex, goto IPLS_ASTDEL 

Copy the local 1/0 Ba. 


Save status of traversing routines 


K 13 
CLSI - Build a Local Copy o uster 1/0 Da 16-SEP-1984 00:23:4 AX/VMS Macro V94-00 P 9 
yo2-008 CLSIODB = Entry soo et fal zation moet 1 0:33:48 UETPSY.SRCICLSIODB.MAR; 1 — (4) 
54 “—-. o 1 MOVL G*SCHS$GL_CURPCB,R4 ; We must release mutex on local I/0 db 
pooooo'er fe 137 : ISB, gaSCHBIOONLOCK j Release mutex: 
i «eeand rese 
1 BA Q1 POPR #*A<RO> 
70 93 E9 01 BLBC RO, 2008 ; BR if we failed to get local db 
1 94 SULWSET_S {NADR = (R6) ; Allow normal paging in that area 
06 vO 01 95 MOVL #UID$SK tag RTYPE,- ; Put a cap on what we return 
06 AB 36 UIDGNROSB_TYPE(R11° 
1 98 120$: 
oc ac 8 } 3 $3 Git MPM_POINTER(AP) 3 peed we oeurn shared memory info? 
; BR no 
67 7 0 0178 64 MOVL #UIDENDSK_FFREE, (R7) ; Initialize counter to minimum space 
0 DD 01 8 PUSHL ; Now count the shared memory List 
14 83 4 : Z Ae thy  eceatamacits 
Hee ‘CF DF 1 03 PUSHAL MPM_COUNT 
goon? O'GF DD 0189 $ PUSHL G*ERESGL_SHBLIST 
meres 56 «ES O194 408 GLBc’ RO S008". BR if we failed to count it 
3 we failed to coun 
67 DOD 7 09 PUSHL (R?7) ; Calculate, allocate and lock in WS... 
aaa a a 2 
1 4 E9 1 § BLBC 5 -5b0s : BR if there was ony probles 
00 DD 4 PUSHL ; Copy the shared memory database 
14 A9 DD § 4 PUSHL eatin 
00 DD 5 PUSHL # 
0417'CF DF 6 PUSHAL MPM_TRAVERSE 
00000000'GF OD 7 


PUSHL  G*EXESGL SHBLIST 
CALLS 5. CALL_IT 


OS6F°CF O05 FB 
18 50 


Po tt ot ot ot tt tt ot a a eM 


1 
1 1 
1 1 
4 1 
1 1 
01 1 
01 1 
01 1 
1AF 1 
1B5 13 
E9 O1BA 1 BLB $ ; BR if we failed to copy it 
01BD 0 SULWSET_S {NADR = (R6) ; Allow that area to page again 
06 DO OICA 1 MOVL #ULDSK ENO RTYPE,- ; Put a cap on what we return 
06 AB ¢ é UIDGNRCS$B_TYPE (R11) 
50 007480C9 8F 00 4 5 : 2008 MOVL #UETPS_NORMAL ,RO : Indicate that all went well 
69 50 dO 01D5 § MOVL RO, SAVE_RO(R9) ; Save our return status over SS calls 
1 § SULWSET_S {NADR7= (R45) ; Allow paging of db in case error path 
FE17 CF DE 01 8 MOVAL UETPSCLSIODB,- ; We can unlock our code, too 
08 A9 169 CURRENT AREA(R9) 
0655'CF DE 1EB 0 MOVAL UETPSCLSIODB_END,- 
OC A9 1EF 1 CURRENT_AREA?4(R9) 
1F1 § SULWSET_S INADR = (R6) ; Allow regular paging - we're IPL 0 
58 04 A9 00 Q1 5 MOVL SETSFMCRO).R 
4 SSETSFM_S ENBFLG = R8 ; Reset original SS fail mode 
50 9 00 5 MOVL SAVE_RO(R9) RO 3; Restore our return status 
03 50 «EY ‘ § BLBC RO,2T0 ; Exit now if there was an error 
50 01 00 } 5 2108 MOVL ass NORMAL ,RO ; Otherwise, give status people expect 
04 4 RET 
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FUNCTIONAL DESCRIPTION: 
Extracts information from a system block in VMS's cluster 
database and puts it into a ${D record in PO space. 


CALLING SEQUENCE: 
BS3awW SID_ TRAVERSE ; Always called by CALL_IT, 
; «..uses CALL_IT’s params 


INPUT ogy by o 
$908. ee those for CALL_IT. 
12(AP) is 0 or the address of a Longword which will Link to the current 
record. 


IMPLICIT INPUTS: 
R10 and R11 form a Sonar syeer for the amount of free space left in the 
current area of Pl space we've allocated for our database. 


OUTPUT PARAMETERS: 
12(AP) = Updated for Link to subtree in current record. 
O4(AP) = Updated to point to the next SID block if there is one. If 
there is none, undefined. 


IMPLICIT OUTPUTS: 
R10 and R11 are updated to point to the next free byte in PO space. 


COMPLETION CODES: 
UETPS_NORMAL if we were able to extract useful information and there 
is presumed to be another SID block to go. 
UETPS_ FINIS ED if we've reached the Last SID or there are none. 
UETPS_NOTCMPLT if we run out of room to copy the database. 


SIDE EFFECTS: 
NONE 
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PEPE LL ELLE LPP PPP PPP PPP PPP PEERS 


WOOO O0 OO O00 000000 09090909 SI NIN INNO 


0 
4 
i 
0 
1 SID_TRAVERSE: 
58 04 AC 00 5 MOVL 04 (AP) ,R8 ; Get address of pronmed system block 
ha 4 BEQL 10$ ; BR if obviously bogus 
68 8 01 5 CMPL R 4(n8) : Check for an enoty circular List 
04 «13 $ BEQL 10$ 3 if we have 
58 14 AC 01 CMPL ene (AP) ,R8 : Check for pointing to List header 
8 H BEQL 0$ BR if we are 
; BBS #UIDFLAGSV_SID,16(AP) 108 ; We know caller wants SID records 
y ios CLRL R ; Force bogus address otherwise 
033D 30 ; BSBW SANITY_CHECK ; See if we have a good addre 
01 2F  €B FFC #<SBSS_SYSTEMID*8>-1,#1,- ; A UDA is indicated by the “high... 
50 «(18 Ag 4 SBS6_STSTERID (RE) .RO 5 escdtt in the system id... 
} 5 BNEQ $ 
90 A $ BRW 40$ 3 «..and we want to ignore them 
5A 00000045 BF 01 15$: CMPL #UIDSIDSK_FFREE,R10 ; Have we enough space for this record? 
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3 49 BLEQ 208 ; BR if we 
50 007411C2 gf 8 33 638 peat MUETPS_NOTCMPLT,RO 3; Return eek on error if not 
4 1 208: 
0045 8F B60 4 § MOVW #UIDSIDSK_FFREE,- ; Save length of record 
OOF 90 0949 804 nove | Seer netatree sndteote thet 10° & 810 record 
- 3: Indicate tha ‘sa recor 
06 AB 48 5 soeRthe Tepe cat) 
CAC OD 4D § TSTL (AP) ; Are we chained to a previous record? 
oe 1 BEQL > 3; BR if not 
0c BC Se 8 308: MOVL R11,a1Z2 (AP) ; Forge a Link if we are 
06 28 0 MOVC3 #SBS$S_SYSTEMID,- ; Transfer... 
18 A 11 SB$B_SYSTEMID(R8) ,- > seethe system id... 
AB A \¢ UIDSTD$SB Bye Tensocntt) 3 «to our SID record in PO space 
4 a8 00 C 1 MOVL SBST_SWTYPE(R8) ,- ; Transfer the software type... 
1 AB F 514 UIDSTD$T_SWTYPE(R11) 
8 A dO 61 15 MOVL SBST_SWVERS(R8),- j «..the software version... 
5 AB 64 16 UIDSTD$T_SWVERS(R11) 
2c A 7D 66 1 mova SB$Q_SWIRCARN(RS8) ,- 3 ...the software incarnation number... 
19 AB 69 18 UIDS stp $¢ SUIN ARN(RI1) 
34 A dO 68 1 MOVL SBST_HWTYPE(R8),- 3 .-.the hardware type... 
21 AB 026 0 UIDS SID$t HWTYPE (R11) 
of 28 027 1 MOVC3 #SB$S 3 «the hardware version... 
38 A a 2 SBSB_ AWVERS (RB) 
25 AB —% Se erpse novenstat1) 
10 28 7 524 MOVC3§ #SBS$S AME ,- 3 .«.and the SCS nodename... 
44 AB 0 78 «525 SBST SRODENAN E (RB) 
31 AB ZA 5 $ UIDSTD$ST ENODENARE (R11) ; ...to our SID record 
59 58 0 7¢ H 8 MOVL R11,R9 ; Make a temporary copy of our base... 
50 046 A9 3C O27F 529 MOVZWL UIDGNRCSH. SIZE(R9),RO  : ... 
A 3 ¢€ 3 0 erg RO,R10 3 «because we and routines we call... 
mim... & 3 1 ADOL RO,R11 3 «update the free space descriptor 
00 «66D 89 5 PUSHL #0 ; DDB List Serajagres by itself 
10 AC OD 4 PUSHL 16(AP) : Form a copy of lags +. wniree 
41 AD OOF a 5 PUSHAL UIDSID$L_DDB(R9) : Save DDB Link A. ALL_IT call 
O33E'CF ODF 1 § PUSHAL DDB_TRAVERSE 3 Now set up all DDBs and ce. 
54 AB OD 95 PUSHL sest DDB(RB) 3 ...attached to this system block 
OS6F 'CF 92 F 98 3 CALLS @# GALL IT 
2750 +#O€ 38 ip LBC RO,50$ ; Exit immediately on an error 
9 AB OD ng 41 PUSHL s8$t PBFL(R8) 3; Path blocks ace in a circular Uise 
ac DD A $5 PUSHL (AP) 3; Forma copy of flags for subtr 
07 A OF - 4 PUSHAL UIDSIDS$L_PBFL(R9) 3; Save path Block Link for CALL_ "it call 
O2c8'CF OF A 44 PUSHAL PATH_TRAVERSE ; Now set up all the path blockS... 
0c Ag OD A 45 USHL sest PBFL(R8) 3 ..-attached to this system block 
OS56F °CF 9 F B rt} CALLS ERLL 
OF 50 «CCE ; 2 BLBC RO,50$ ; Exit immediately on an error 
Oc AC 69 ODE 4, i 408 MOVAL UILOGNRCSA_FLINK(R9),12(AP) ; Set up Link for next SID record 
os ac 68 D 8 I MOVL SBSL Pu sem tne? 4(AP) ; Point to next possible system block 
007480C9 D ; 4 50s MOVL #UETPS_ NORMAL ,R : Return fat and happy 
05 C7 ez RSB 
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FUNCTIONAL DESCRIPTION: 
Ext ogee information from a path block in VMS's cluster database and 
puts it into a PATH record in PO space. 


CALLING SEQUENCE: 
BSBW PATH TRAVERSE : Always called by CALL_IT, 
; ..-uses CALL_IT’s params 


INPUT PARAMETERS: 
Same as those for CALL_IT. 
12(AP) is 0 “ the address of a Longword which will Link to the current 
record. 


IMPLICIT INPUTS: 
R10 and R11 form a et for the amount of free space left in the 
current area of PO space we've allocated for our database. 


OUTPUT PARAMETERS: 
12(AP) = Updated for Link to subtree in current record. 
O4(AP) - Updated to point to the next path block if there is one. If 
there is none, undefined. 


IMPLICIT OUTPUTS: 
R10 and R11 are updated to point to the next free byte in PO space. 


COMPLETION CODES: 
UETPS_ ary if we were able to extract yootut information and there 
off resumed to be another path block to go. 
UETPS_FINISHED if we've reached the Last ae *Ougek or there are none. 
UETPS_-NOTCMPLT if we run out of room to copy the database. 


SIDE EFFECTS: 
NONE 


PATH_TRAVERSE: 


MOVL is oR8 ; Get address of presumed path block 


BEQL a uy obviously bog gus 
CMPL k for an empty circular List 
BBS Ay {DFLAGSV. PATH, 16(AP), ris R if caller wants path records 
10$ CLRL : #X.. bogus address otherwise 
" « BSBW 3s SANITY_CHECK ; See if we have a good addre 
ays" #ULDPATHSK_FFREE,R10 : Rave we enough space for this record? 
; we 
nese #UETPS_NOTCMPLT,RO ; Return with an error if not 
20$: 


MOVW #UIDPATHSK_FFREE,- 
UIDGNRC$W_ SIZE (R11) 
MOVB § #UID$K_PATH_RTYPE,- 


: Save length of record 
: Indicate it’s a path block record 
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06 AB E 13 DGN WRCSS. TYPE CATT) 
C AC 03 F 14 TSTL (AP) ; Are we chained to a previous record? 
4 ’ F ) BEQL $ 3 not 
0c Bc «65B) COO F iF 508 MOVL R11, @12 (AP) ; Forge a link if we are 
$e AB 00 9 13 MOVL PBST nih RT vt hs Copy over the local port name 
9A FC 61 UIDPATHST PORT NAME (R115 
12 A B0 FE 620 MOVW PBSW_S R8) ; Copy the state of the virtual circuit 
? Al 01 621 DEDPRTHSU STATECRIN) 
1A 90 6 § MOVB PBSB_RSTAT ; Copy the state of the remote node 
DA 6 6 UIDPATHSB ASTATECRIT) 
BA 90 : MOVB PB$B_C cols TS (RB) 3; Copy the overall state of the cable 
; AB B UIDPATHSB_CBL ST§CR11) 
A 90 § MOVB PBSB Ms sTsiRe) ; Copy the state of path A 
FA 10 6 UIDPATHSB_PO s18cR11) 
AA 90 1 628 MOVB PB$B_P1_ STS(R8) ; Copy the state of path B 
10 AB é ; UIDPATH$SB_P1_STS§(R11) 
59 58 BY 17 = 631 MOVL R11,R9 3 _— a temporary copy of our base... 
50° 0409 3c O31A 6 : MOVZ4L UTDGNRCSW_SIZE(R9),RO ; 
sa 50 cp OSE SUBL2-R0,P10 } iilpeceuse we. 
ADDL RO,” 3; «.--update the ree space descriptor 
58 an * ; | ? 3 0,%11 d f d i 
OC AC 69 43 0334 636 MOVAL UIDGNRCSA_FLINK(R9),12(AP) ; Set up Link for next path block 
04 AC 68 DO 0328 637 MOVL PBS$L_FLINR(R8),04(AP)  ; Point to the next possible path block 
14 AC 04 eS D1 beget 638 CMPL 904 (AP) ,20(AP) : we are ina circular queue. 
0: 12 03351 639 BNEQ 40$ : ...80 BR if we've not gone around.. 
04 AC D4 $37 e29 408 CLRL 04 (AP) 3 «but force an end if we have 
50 007480L9 8F DO 0336 ots MOVL #UETPS$_NORMAL ,RO ; Return fat and happy 
05 033D 64 RSB 
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FUNCTIONAL DESCRIPTION: 
xtracts information from a DDB in VMS's I/0 database and puts it 
nto a DDB record in PO space. 


CALLING SEWJUENCE: 
BSBW DDB_ TRAVERSE ; Always called by CALL_IT, 
3 «e798 CALL_IT’S params 
INPUT PARAMETERS: 
Same as those for CALL_IT. 
12(AP) is 0 or the address of a longword which will Link to the current 


record. 
IMPLICIT INPUTS: 
R10 and R11 form a coser inter for the amount of free space left in the 
current area of PO space we've allocated for our database. 
OUTPUT PARAMETERS: 
12(AP) = Updated for Link to subtree in current record. 
O4(AP) = Updated to point to the next DDB if there is one. If 


there is none, undefined. 


IMPLICIT OUTPUTS: 
R10 and R11 are updated to point to the next free byte in PO space. 


COMPLETION CODES: 
UETPS_NORMAL if we were able to extract useful information and there 
is presyaed to be another DDB to he 
UETPS_FINISHED if we've reached the last DDB or there are none. 
UETPS_NOTCMPLT if we run out of room to copy the database. 


SIDE EFFECTS: 
NONE 


OOOCSCCOCOCOOOCCOOCOCoOoooO 
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20S: 
MOVW R7 UIDGNRCS$W_SIZE(R11) ; Save length of record 
MOVB  #ULD$K_DDB_RTYPE,- : Indicate that it's a DDB record 


DOONAN WN OS OO NAN E WIN O OO NAM EWN OS OOO NAME WW OS OO NAN E WT  OOONOU 


SPP APAPPAP AAA AAA AA AAAAAAAA PAAR A AAA AA AAA AA AA APA AA AAA AA AA AAA AS 
SDOOOOWOO OOOO 00909 09 09 09 69 0909 09 SI NIN NNN SND PAA A AAA AA IIIT EE 


: DDB_TRAVERSE: 
04 AC 00 MOVL 04 (AP) ,R8 ; Get address of the DDB 
02 10 AC § EO 4 BBS #UIDFLAGSV_DDB, 16(AP) , 108 : if caller wants ODB records 
D4 4 ve CLRL ORR ; Force bogus address otherwise 
0218 39 4 BSBW SANITY_CHECK ; See if we have a good address 
0c 1 4C ADDB3 #UIDDDBSK_FFREE,- ; Figure how much space we'll need... 
57 164A 4f DDBST_NAME (RB) .R7 
7 2 9A MOVZBL R/7,R7 3 ..-for our PO DDB record 
A 7 #O1 4 CMPL R7,R10 ; Have we enough? 
08 15 7 BLEQ 208 : BR if we have 
50 007411C2 8F 0 6 MOVL #UETPS_NOTCMPLT,RO ; Return with an error if not 
1 
5 


POO UMUIM 
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6 AB 7 q 4 DGNRCS$B_TYPE(R11) 
¢ a 3 b7 [sit | he ; Are we chained to a previous record? 
3 no 
Oc BC g D 705 30$ MOVL R11,@12(AP) ; Forge a Link if we are 
1 ag 9 7 $ ; pve DDBST_NAME(R8) ,R7 ; Transfer... 
15 A8 2 7 7 8 MOVC R7,0D0B$T -NAME +4 (RB) ,~ 3 «eethe device controller name. 
0 7A 7 ULODDBSK~FFREE(R11) 3 «to our DDB record in PO space 
OB AB 5 90 7 9 MOVB R UIDDDBST. NAME(R11) ; Make the name an ASCIC string 
59 58 0 71 MOVL R11,R9 ; Make a temporary copy of our base... 
50°04 a9 8 ae MOVZWL UIDENRCSW_SIZE(R9),RO i: ... sini aia dicts 
SA 2 C 714 yyele RO,R10 3 assBecouse we and routines we call... 
58 C 5 2 ADDL RO,R11 3 «update the free space descriptor 
00 oD D i$ PUSHL #9 ; UCB List sevamares by itself 
10 AC OD F £8 PUSHL 16(AP) ; Form a gery ot ags for Ser ay 
07 AD ODF 38 71 PUSHAL UIDDDBS$L_UCB(R9) ; Save UCB Link for ALL all 
O3B4'CF OF 9 720 PUSHAL UCB_TRAVERS : Row set up all the uchs. *4 
04 ag DD 99 721 PUSHL DpBst UCB¢ 3 ...attached to this DDB 
OS6F ‘CF 9 fe 9C 7 ¢ CALLS #5,CALL_IT 
OF 50 «OC Al 4 . BLBC RO,40 ; Exit immediately on an error 
OC AC 69 +3 3A4 7 5 MOVAL UIDGNRCSA AT ab vay 12(AP) ; Set up Link for next DDB 
04 AC 68 DO O3A8 726 MOVL DDBSL_LINR(R8),04(AP)  ; Point to the next possible DDB 
50 007480c9 BF DO O3AC 727 MOVL § #UETPS_NORMAL,RO : Return fat and happy 
038 £s8 40$: 
05 038 729 RSB 
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+ -SBTTL Traversing Subroutines - Unit Control Block 
B. baa i 
B4 735: FUNCTIONAL DESCRIPTION: 
B4 7 § § xtracts information from a UCB in VMS's 1/0 database and puts it 
+ q : nto a UCB record in PO space. 
Te § + CALLING SEQUENCE: 
B4 740; BSBW UCB_ TRAVERSE ; Always called by CALL_IT, 
o2 of) 3 ; ...uses CALL_IT's params 
B4 58 : INPUT PARAMETERS: 
8 B4 744 ; Same as those for CALL_IT 
B4 745 ; 12(AP) is 0 or the address of a Longword which will Link to the current 
gat Her 
384 148 > IMPLICIT INPUTS: 
03B4 749; R10 and Ri1 form a meee Taree for the amount of free space left in the 
te £39 3 current area of PO space we've allocated for our database. 
3B4 136 ! OUTPUT PARAMETERS: 
384 753; O4(AP) = Updated to point to the next UCB if there is one. If 
baat Pe ; there is none, undefined. 
0384 756 : IMPLICIT OUTPUTS: 
tet Pee 3 R10 and R11 are updated to point to the next free byte in PO space. 
384 759 : COMPLETION CODES: 
384 760; UETPS as if we were able to extract Be Sree information and there 
0384 761; + pres sumed to be another UCB t © 90; 
0384 £96 : UETPS_ FINts ED if we've reached the lest CB or there are none. 
baad Pe 3 UETP$_NOTCMPLT if we run out of room to copy the database. 
384 765 ; SIDE EFFECTS: 
384 766; NONE 
384 767; 
bat feb 
384 770 UCB_ TRAVERSE : 
58 04 ag 43 band ore MOVL 04(AP) ,R8 Get the address of the UCB 
02 10 AC E 388 77 BBS MUIDFLA AG$V UCB, 16(AP), 108 : BR if caller wants UCB records 
8 D4 2 ore 108 CLRL R8 3 berce bogus address otherwise 
O148 30 F ore ; BSBW SANITY_CHECK ; See if we have a good addres 
SA 1 D1 C 77 CMPL #UIPUCBSK_FFREE,R10 ; Have we enough space for this record? 
9 15 C ore BLEQ 5 ; BR if we have 
50 007411C2 8F B $f 780 she #UETPS_NOTCMPLT,RO ; Return Sith an error if not 
CF 781 20$: 
13. ~B0 ) gel « § MOVW #UIDUCBSK_FFREE,- ; Save length of record 
04 AB D1 7 WIDeE LYE A SIZE (R11) 
046 90 D 784 MOVB #UlDS B_RTYPE,- : Indicate that it's a UCB record 
06 AB D5 «= 785 DGNRC’ B_YYPE(R11) 
C AC 0 D 7 § TSTL | (AP) ; Are we chained to a previous record? 
06 ~=#«1 DA 7 BEQL $ ; BR if not 
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0c BC 5B DO 4 308 MOVL R11,a@12(AP) ; Forge a Link if we are 
33 A&B B60 E MOVW UCBSW org Al ),- 3; Save _~ ait number... 
7A E ; UIDUCB$W_NUMBER(R11)  : ...in PO UCB record 
40 A 90 E ¢ MOVB uCBSB DEV CLASS (R8) ~ 3; Save the ‘ device class 
09 Al F 9 UIDUCB 8 SEVCLASS(R11) 
41 A 90 EA 794 MOVE uCcB$B peg are R8),- 3; Save the device type 
A AB ED 795 UIDUCB 8 DEVTYBE (R11) 
8A dO EF £96 MOVL UCBSL_DEVCHAR(RS8) ,- 3 Save all the device... 
BA Fe 79 UIDUCBSL DEVCHAR(R11) 
CA dO F O38 MOVL UCBSL BEOCHARG (RS) - i ...independent characteristics 
OF AB Ee 199 UIDUCBSL_DEVCHAR2 (R11) 
59 §=658 0 F9 01 OVL R11,R9 ; Make a temporary copy of our base... 
50 04 A9 FC 0¢ MOVZWL UIDGNRCSW_SIZE(R9).RO 
a, Cee rt 0 SUBL RO,R10 : 1..because we. 
~~ UWmhCU rh Be ADDL RO,R11 3 ..-update the free space descriptor 
OC AC. 69 ODE 0406 06 MOVAL UIDGNRCS$A AT Nad it: 12(AP) ; Set up Link for next UCB 
04 AC 30 A8 DO 040A 807 MOVL UCBSL_LINR(R8),04(AP)  ; Point to the next possible UCB 
50 007480C9 8F BY eA se BOVE #UETPS_NORMAL ,RO ; Return fat and happy 
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-SBTTL Traversing Subroutines - Shared Memory Blocks 


+o 
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FUNCTIONAL DESCRIPTION: 
Extracts information from a SHB-SHD-ADP set in VMS's 1/0 database and 
puts it into an MPM record in PO space. 


CALLING SEQUENCE: 
BSBwW MPM_TRAVERSE ; Always called by CALL_IT, 
; «..uses CALL_IT"sS params 


INPUT PARAMETERS: 
Sane as those for CALL_IT. 
12(AP) is 0 4 the address of a longword which will Link to the current 
record. 


IMPLICIT INPUTS: 
R10 and R11 form a ey for the amount of free space left in the 
current area of °0 space we've allocated for our database. 


OUTPUT PARAMETERS: 
O4(AP) = Updated to point to the next SHB if there is one. If 
there is none, undefined. 


IMPLICIT OUTPUTS: 
R10 and R11 are updated to point to the next free byte in PO space. 


COMPLETION CODES: 
UETPS_NORMAL if we were able to extract useful information and there 
is presses to be another SHB to go. 
UETPS_FINISHED if we've reached the last SHB or there are none. 
UETPS_NOTCMPLT if we run out of room to cop; the database. 


SIDE EFFECTS: 
NONE 
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SNA FS NSM DD NINN 
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r 2 MPM_TRAVERSE: 
4 5 ; R8 will point to the SHB, R7 to the SHD, and R6 to the ADP. 
58 04 AC DO 04 5 MOVL 04 (AP) ,R8 ; Get address of the SHB 
4 54 ; BBS #YIDFLAGSV_MPM, 16(AP) , 108 ; We know caller wants MPM records 
4 3 ies CLRL ORR ; Force bogus address otherwise 
014 30 04 5 BSBW SANITY_CHECK ; See if we have a good address 
57 O4A 0 4 5 MOVL SHB$L_BATAPAGE(R8),R7 ; Point to corresponding SHD 
OA 1 04 5 ADDB3 #UIDMPMSK_FFREE,- : Figure how much space we'll need... 
55 20 a7 4 6 SHD$T_NAME(R7) .R5 
33 23 9A 04 6 MOVZBL oR5 3 .-.for our PO MPM record 
A 5 D1 04 ° CMPL R5,R10 ; Have we enough? 
98 15 04 BLEQ ; BR if we have 
50 007411C2 8F B? ? é ore #UETPS_NOTCMPLT,RO ; Return with an error if not 
4 20$: 
04 AB 55 BO 04 6 MOVW R5,UIDGNRC$W_SIZE(R11) |; Save length of record 


a ee ce ee ee ee one =r 
OM VO OOOO OCVOOM OOOO OOOOOOOOOrM = tA 


CCCCCCCCCccccccccccccccccecceece COMO 


CLS 
VAY 
05 90 0438 6 MOVB #UIDSK_MPM_RTYPE,- ; Indicate that it’s an MPM record 31 
06 AB 43D $ DGNRCSB. TYPE(R11) 
CAC OD 43F TSTL (AP ; Are we chained to a previous record? 
4 1 ree 7 BEQL $ ; BR if not 
oc BC B OD rr ts 308 MOVL R11,a12¢AP) ; Forge a Link if we are 
56 10 AB OD 108 74 MOVL SHBSL._ADP(R8) ,R 3; Point to the ADP toe A se memory Mac 
5 66 D 44C 75 MOVL ADPSL CSR RO) R 3; Point to the ADP’ — 
55 10 AS) OO OO44F i: MPM : MR(RS YRS : (1/0 space haa ¥, a -$ 
EF 045 7 EXTZV #MPM$0_MR_UNIT,- ; Get the unit number of our memory > 
.> ae 45 te #MPMSS_MR_UNIT,RS,RS $ 
97 AB 80 4? 7 5 YIDAPHS ERCRI1) ; Save it in our PO MPM record Tol 
6 20A : 4 f 0 MOVZBW SHOST NAME (R ),R : Transfer... 
2147 56 2 46 1 SHB$T_NAME+1(R7),- : ...the device controller name... 164 
OA AB 464 § OG ORPRSK PPREE(RI1) 3 «..to our MPM record in PO space 
09 AB C56 O90 rhe 7 MOVB R, UIDMPAST_NAME(R11)  ; Make the name an ASCIC string The 
59 58 0 46A és MOVL ; Make a temporary copy of our base... MAC 
50 04 Ad 46D 6 MOVZWL UIDENRCSu_ SIZE(R9),RO : 
SA 23 C 471 8 tog: RO,R10 : 1. because we. 
58 C rhe 38 ADDL RO.R11 3 «+-update the free space descriptor 
OC AC 69 DE 0477 890 MOVAL UIDGNRCSA_FLINK(R9),12(AP) ; Set up Link for next MPM record 
04 AC 68 00 0478 891 MOVL  SHBSL_LINR(R8),04(AP)  ; Point to the next possible SHB 
50  007480C9 8F v0 47 89¢ MOVL #UETPS_NORMAL ,RO : Return fat and happy 
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FUNCTIONAL DESCRIPTION: 
Counts up the space we'll need to allocate in order to copy VMS's 
database into PO space. 


CALLING SEQUENCE: 
BSBW xxxx_ COUNT ; Always called by CALL_IT 
; «and uses CALL_IT’s pa 


rameters 


INPUT PARAMETERS: 
$gee as those for CALL_IT. 
12(AP) is the address of a longword in which we accumulate a count. 


IMPLICIT INPUTS 
NONE 


OUTPUT PARAMETERS: 
12(AP) is incremented by the Length of a record. 


IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 
UETPS_NORMAL if we counted a record. 
UETPS_FINISHED if the address of the VMS data structure is bogus. 


SIDE EFFECTS: 
Will not return to calling routine if the address is bogus. Since 
this routine and address checking routine are called by BSBx, 
address checking routine can RET to return to caller's caller. 


0 04( AP) ,R4 ; Get address of presumed system block 

BEQL ; BR if obviously bogus 

CMPL R4, (R4) : Check for an empty circular List 

BEQL ; BR if we have one 

CMPL OCAP) ,R4 ; Check for pointing to List header 

BEQL ; BR if we are 

E85 #UIDFLAGSV_SID,16(AP),10$ ; We know caller wants SID records 
- CLRL sR ; Force bogus address otherwise 

BSBW SANITY_CHECK ; See if we have a good address 

CLRQ RO Assume for now that we see a UDA 


FFC #<SBSS_SYSTEMID*8>-1,41,- ; A UDA is indicated by the high... 
$B_SYSTEMID(R4) ,R2 i «.-bit in the systgn id... 
f°] 


BEQL ; «+.and we want ignore them 
MOVZBL #UIDSIDSK_FFREE,RO ; $1D block records are fixed length 
MOVAL DB_COUNT,R ; We count DDB space... 

MOVL SSC _DDB(R4) ,R2 

CLRL R 

BSBW SSAnON. COUNT 

CLRL R i; .--this SID block space, once... 
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51. O4C6'CF OD 4B5 MOVAL PATH_COUNT,R1 3 «and path block space, too 
52 ge AG D8 4BA : ae MOVL  SBSLIPBFL(R4),R2 < : 
23 4 OD rh 5 MOVL 55%. FLINK(R4) ,R3 ; Point to the next possible sys block 
§ D 4C 28 MOVL R2-R5 ; Set up terminator for path block list 
1 rh 2 BRB COPMON_ COUNT 
ste 338 PATH_COUNT: 
54 04 AC 0 4C 960 MOVL 4 (AP) ,R4 ; Get address of the presumed path block 
A 1 4CA +d BEQL 0$ ; BR if obviously bogus 
64 4 D1 Q4CC $6 CMPL R4, (RS) : Check for an empty circular List 
0210 ac 01 £0 O4CF 36 BBS #ULDFLAGSV_PATH,16(AP),10$ ; BR if caller wants path records 
4 04 rt bee 108 CLRL RS ; Force bogus address otherwise 
30 rte ae8 BSBW SANITY_CHECK ; See if we have a good address 
DO 04D 96 MOVL #ULDPATHSK_FFREE,RO ; Path block records are fixed Length 
D4 QO4DC 968 CLRL R1 ; We have no subtrees to count 
DO QO4DE 969 MOVL PBSL_FLINK(R4) ,R3 ; Point to the next possible path block 
Di O4E1 970 CMPL (R3),20(AP) ; We are in a circular queue... 
12 Rees 971 BNEQ evs 3; «.-S0O BR if we've not gone around... 
LRL 3; «but force an en we have 
D4 rt ti 3 208 CLR R b f d if 
Q04E9 974 ; CLRL R5 
N_COUN 
11 ReeD of? BRB COMMON_COUNT 
O48 379 DDB_COUNT: 
dO Reee 978 MOVL 04(AP),R4 ; Get address of the VMS data structure 
EQ O4EF 979 BBS #UIDFLAGSV_DDB, 16(AP) ,10$ ; @ caller wants DDB records 
D4 Oars 980 ate CLRL RG ; Force bogus address otherwise 
10 Oars oa6 BSBB SANITY_CHECK ; See if we have a good address 
81 O04F8 98 ADDB3 #UIDDDBSK_FFREE,- ; DDB records have variable Length... 
4FA 984 DDBST_NAME(R4) ,RO 3 «device names 
9A O4FD 985 MOVZBL R 
DE 209 289 MOVAL UCB COUNT,R1 ; We'll have to count UCB space... 
DO 050 98 MOVL DOBSL_UCB(R4) ,R2 
dO £444 +43 oe POSSE LINK (RS) .RS ; Point to next DDB 
11 030¢ $96 BRB COMMON_COUNT 
030 336 UCB_COUNT: 
DO 05 9 MOVL 04(AP) ,R4 : Get address of the VMS data structure 
EO 0512 99% BBS #UIDFLAG$V_UCB,16(AP),10$ ; BR if caller wants UCB records 
D4 313 382 108 CLRL R4 : Force bogus address otherwise 
10 0519 399 BSBB SANITY_CHECK ; See if we have a good address 
DO 051B 44 MOVL #UIDUCBSK_FFREE,RO ; UCB records are fixed length 
D4 aif 99 CLRL 3 We have no subtrees to count 
dO ; ’ ! o} re UCBSL_LINK(R4) ,R3 ; Point to next UCB 
_COUN 
11 : 3 i BRB COMMON_ COUNT 
526 ©1004 MPM_COUNT: 
DO 0526 1005 MOVL 04( AP) ,R4 - Get address of the VMS data structure 
52A 1 $ 3 BBS #UIDFLAGSV_MPM, 16(AP) , 108 > We know caller wants MPM records 
3 A ti CLRL sR : Force bogus address otherwise 
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FUNCTIONAL DESCRIPTION: 
Checks that we have a reasonable address in system space. 


CALLING SEQUENCE: 
BSBW SANITY CHECK 


INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS 
PSL condition codes have been set by accessing the address of a 
supposed VMS data structure. 


OUTPUT PARAMETERS: 
NONE 

; IMPLICIT OUTPUTS: 
NONE 


; COMPLETION CODES: 
UETPS_FINISHED if the address is bogus. 
None, otherwise. 


SIDE EFFECTS: 

Will not return to calling routine if the address is bogus. Since 
this routine is called by BSBx, does a RET to return to 
caller's caller. 

SANITY_CHECK: 
BEQL 10$ 3; Assume condition codes are set 
108 RSB 3; We have a reasonable address 
"  MOVL «= MUETPS_FINISHED,RO ; A bogus address - we're through 
RET ; Force our caller to exit 
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FUNCTIONAL DESCRIPTION: 
Repeatedly calls one of the VMS I/0 database traversal routines or 
space counting routines until that routine either finishes 
(UETPS_FINISHED) or has an error (low bit clear in RO). 


This routine must be reentrent because it is called by various levels 
of data structure traversing routines to call the next lower level. 


Note that CALL_IT itself only RETurns if it sees an error. The 
routines to untch we JSB will RETurn to CALL_IT's caller when they 
ed. 


CALLING SEQUENCE: 
CALLS  #5,CALL_IT 


INPUT PARAMETERS: 

20(AP) = For circular lists, the address of the first item on the List. 
Trash, otherwise. (A routine that counts or traverses a list 
must understand the data structure of any sublists.) 

16(AP) = Copy of the flag longword telling which record types are 
to be counted or written. 

12(AP) = PO address of a Longword which will point to the current 
record, address of a longword in which we accumulate a count 
of the space we need for records, or 0. 

O8(AP) - Address of the routine we'Ll call to do the traversal or 


counting. 
O4(AP) - Pointer to first data structure on a List in system space. 


NOTE THAT THESE INPUTS ARE USED BY THE TRAVERSING AND COUNTING 
SUBROUTINES AS WELL, BECAUSE THOSE ROUTINES ARE CALLED VIA JSB! 


IMPLICIT INPUTS 
NONE 


OUTPUT PARAMETERS: 
O4(AP) = Updated by repeated calls to the traversing routine. Should 
be coger ees as trash upon aaieing CALL_IT. 
12(AP) = Updated so that chains of records are created or a count is 
kept of the space we'll need for records. 


IMPLICIT OUTPUTS: 
PO database is built by the routines called by this routine. 


COMPLETION CODES: 
UETPS_FINISHED if we're able to build a part of the PO database. 
Error code from a called routine otherwise. 


SIDE EFFECTS: 

Note that R10 and R11 are in use by routines which call CALL_IT and 
by routines which CALL_IT calls. The registers cannot be 
altered except for their assigned purpose, and they cannot 
be saved in the entry mask either, because they are updated 
by the routines which CALL_IT calls. 
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FUNCTIONAL DESCRIPTION: 
Sets up a new data area at the end of PO space and a descriptor to the 
area, Request twice the calculated space in case there has been a 
cont igurat ion change since we calculated it. No explicit check is 
made for system service success or for the amount of memory we actually 
receive. We assume that System Service failure mode is in effect and 
thus we are assured of ee what we need or a reasonable error. 
Note that this routine may only run at IPL 0. 


CALLING SEQUENCE: 
CALLS #2,EXPREG 


INPUT PARAMETERS: 
4(AP) = Pointer to a quadword to get the result of SEXPREG. 
B{AP) = The amount of space we're told we'll need. 


IMPLICIT INPUTS 
NONE 


OUTPUT PARAMETERS: : 
O4(AP) = Quadword is updated with the result of $E°"""*G. 


IMPLICIT OUTPUTS: 
R10 and R11 become a descriptor for the free space in the new area. 


COMPLETION CODES: 
Result of SEXPREG. 


SIDE EFFECTS: 
PO space is expanded. 
System service error if we can't allocate space. 


See Ge Ge Se Se Ge Ss Ge Se Ge Ge Ge Be Ge Ge Se Be Ge Ge Fe Ge Se Se Ge Se Ge Sse Fe Se Se Be Se Ge Se 


EXPREG: 


O3FC -WORD “M<R2,R3,R4,R5,R6,R7,RB,RI> 


5A 0&8 AC 00000100 BF C1 A ADDL3 owe ; Round up estimate by half a page... 
5A _ 02 4 MULL2 #2,R1 i «2.80 we can grab twice required space 
56 SA F7 8F 8 SHL #-9,R10,R6 ; Convert words to pages 
8 3 CA eegres to numerical analysts.) 
B SEXPREG_S PAGCNT = - ; Allocate some new address space 
a RETADR = a@04(AP),- 
ACMODE = #PSLS$C_USER 
04 BC DO MOVL @04<AP),R11 Get the address of the new area 


R10 and R11 now form a descriptor 
We can't page the area... 
»--once we elevate IPL 


SLKWSET_S INADR = @04(AP) 
RET 
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FUNCTIONAL DESCRIPTION: 
See if UETPSCLSIODB was called with a oy set of parameters. This 
means that the count of parameters must be correct and that 
combinations of parameters must make sense. Fill in defaults for 
those parameters which need them. 

CALLING SEQUENCE: 
BSBW PARAMS _CHECK 

INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 


Se eae eR catia eGR GMA yee SSE oc gages) a OAR es eg reer gage GR a Oe | 
SA] 
Vv0é 


R8 has the address of our local copy of the FLAGS parameter. 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

Local ~ the FLAGS parameter is set up with user's value or a 


FUSE SUSUSUSUSU SEUSS 
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DNA AE EEE ERE EE EWAN IInonononononononc ng 3 2 2 SS 
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Hy COMPLETION CODES: 
5AE SS$_ACCVIO if one of the pointers cannot be written ¥' the caller. 
SAE SS$_BADPARAM if ren or CLS_POINTER, LCL_POINTER or MPM_POINTER are 
SAE inconsistent, 
SAE SS$_INSFARG if not all pointers are <ither present or defaulted. 
ee NONE if we return to UETPSCLS:%B. 
i SIDE EFFECTS: 
sh Returns to UETPSCLSIODB's caller if an illegal call is detected. 
AE oe 
SAE 
SAE ARAMS_CHECK: 
50 00000114 8F Bg 5A MOVL ie INSFARG,RO ; Set up default for too few args 
oe @s 58 CMPL #3,00(AP) ; How many args were supplied to us? 
14 058 BGTR 1108 ; BR if too few args supplied 
63 13 QSBA BEQL 200$ ; BR if default flags - check ptrs only 
68 10 AC OD 58 MOVL axes aan) (R8) ; Check caller's flags, too, otherwise 
50 14 D 2¢ MOVL §#SS$_RADPARAM, RO : Set up default for a bum parameter 
04 A D C TSTL CLS POINTER (AP) : Check that some info will be... 
1 1 268 BNEQ ; ...returned - cluster... 
52 68 4 E C BBS #UIDFLAGS$V_PATH, (R8) 1108 ; (BR if path wanted but not cluster) 
4E 68 e.g 5c¢ BBS #UIDFLAGSV-MYSYS,(R85,110$'; (BR if my own wanted but not cluster) 
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08 AC DO 1255 TSTL POINTER(AP) 3 «or local peripherals... 
te 43 O83 6 1 gait 
oc a } eat sae were? i «+.0r shared memory 
0 DA 1 § RET ; Error if no info to be returned 
208 } 4 ioe pointer for cluster info was passed. 
14 ! 63 : IFNOWRT We neces. tll ae - 3; BR if we won't be able to store ptrs 
38 rt 69 E1 ses 1 rt: BBC Wiper ag G$V mith on Re 110$ ; BR if cluster but not system blocks 
Re 6 8 E1 QSE6 1265 BBC PUIDELAGSV-U ,20$_; If no UCBs, don't care about DDBs 
0 68 . 26h 1 8 BBC #MUIDFLAG$V— DDB. (RB) *1108'; If UCBs, must have DDBs, too 
2fe 1 bog pointer for cluster info was peleed. we don't know for what detail. 
08 AC rf kf 1 63 : TSTL LCL POINTER (AP) ; Must check local stuff, too? 
0B 1 5F1 1270 BEQL 408" if not = check for inared memory 
O3F3 } 4 Fic ter local and maybe cluster peripheral info were passed. 
becg } ‘3 IFNOWRT Ft Ss Poin en lAr? - ; BR if we won't be able to store ptrs 
20 68 O02 €1 OSre ! oe 408 BBC poLeFLAcSN. ob (R8),110$ ; DDBs must be set for local info 
oc ag 03 HA ! ay 4 date tte ; goecee 8 memory info as well? 
now $03 1279 BRB 70$ : Check that really not wanted 
0603 | + i Only a pointer for shared memory was passed. 
68 2F pd3 0605 1 Be *  BITL —- AUIDFLAGSM_SID!- ; Only shared memory stuff wanted... 
0608 1 UIDFLAGSM -AYSYS!- § ess 
0608 1284 UIDFLAGS$M_PATH!- ; 2.80 none of the flags... 
6 1285 UIDFLAGSM_DDB!- ; .--for other info... 
$9 1286 UIDELAGSMT UCB, (R8) 3; «--Mmay be set 
14 12 06 1287 BNEQ 110$ : f one or more were 
ren | 3 ing pointer for shared memory was passed, and maybe others as well. 
sey } 4 IFNOWRT #5 enone t gt) paces ; BR if we won't be able to store ptrs 
09 68 04 €1 611 1 38 BBC pulstt nate “APM. (R8), 1108 ; The shared mem stuff must be wanted 
05 0615 129 RSB assed all consistency checks 
219 ' 3¢ bo epee cluster or local peripheral getters: were passed, but not sh. memory. 
04 68 04 Fo 616 1 39 BBS #UIDFLAGSV_MPM,(R8),110$ ; Can't be set if no sh. mem stuff 
5 318 ! 4 1008 $B i Passed all consistency checks 
50 Oc 00 e168 ! $3 ties: MOVL #SS$_ACCVIO,RO ; Argument can't be written by caller 
04 ois ! 1 "RET 3; Miscellaneous consistency problems 
it ! 5 bopge® argument was defaulted - we must check only pointers. 
68 00 «OD 61F 1305 MCOML ; Default flags - all are set 
a. ve 8 6 1 § MOVL asés BS DPARAM RO ; Set up default for a bum parameter 
04 AC 9 ° 1 TSTL POINTER(AP) ; Check that some info will be... 
08 1 3 BNEQ 3 «returned - cluster... 
08 A 9 é . i 3 pea POINTER(AP) ; ...or local per pherals... 
Oc AC OD F 1511 TSTL MPM_POINTER(AP) 3 «or shared memory 
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CLSI = Build a Local Copy of a Cluster 1/0 Da 1 0: AX/VM v04- 9 
vo2-000 Utility Subroutines: = PARAMS CHECK Bre EE 1 3Be 84157508 FORT Pey Ree Lobos omar:1 | P29 (42, 
wy 131 BNEQ 230$ 
0 3 i 18 2108: RET ; Error if no info to be returned 
} 1? ¢ IFNOWRT #35 acts. tig? weg ; BR if we won't be able to store ptrs 
08 ae 8 ¢ 1 i$ TSTL id ast TERTAP) ; Do we want local peripherals, too? 
0 1 a7 } 13 9208; BEQL $ ; BR if not - check shared memory 
gt | y * TFNOWRT +73 Heit t tig aid ; BR if we won't be able to store ptrs 
Oc AC DS b668 1 § TSTL sts “f0IN TERTAP) ; Do we want shared memory as well? 
ae deép ! Z 2308: BEQL 240 ; BR if not 
640 1325 ‘ TFNOWRT #2,@MPM_POINTER(AP),- ; BR if we won’t be able to st t 
agp é — 156e"0 PSLSc USER we won e able to store ptrs 
05 desu ! 8 " — RSB ; Passed all consistency checks 
0655 13 Q UETPSCLSIODB_END: ; End of routine for SLKWSET 
0655 1331 ~END 


SEP-1984 06:57:09 LUETPSY. SRESCLSTODB. MAR; 1 
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Symbol table etsy 90:33:68 LOETPSY. SREICLSIODB MAR: 1 ° (14) 
UIDMPMSK_FFREE = A 
UIDMPMST_NAME = 3 
UIDMPMS$W" NUMBE = 
UIDPATH$8_CBL_STS = E 
UIDPATH$B_PO_STS 2 F 
UIDPATH$B_P1_STS 2 0 
UIDPATHSB_RSTATE = 0D 
UIDPATHSK_FFREE = 11 
UIDPATHS$T_LPORT_NAME 2 Y) 
UIDPATHSW" STATE 2 7 
UIDSID$B_AWVERS = 5 
UIDSID$B_SYSTEMID = 2 
UIDSIDSK_FFREE = 4 
UIDSID$L_DDB = 8 41 
UIDSIDSL_PBFL = 07 
UI1DS1D$Q_SWINCARN = 00000019 
UIDSIDST_HWTYPE = Bp ons, 
UIDSID$T_NODEN = 8 000031 
UIDSIDST_SWTYPE = 99 
UIDSIDS$T_SWVER = 00000015 
UIDUCB$B_DEVCLASS = 00000009 
UIDUCB$B_DEVTY s Boo OeT 
UIDUCBSK_F FREE = 00000013 
UIDUCB$L_DEVCHAR = 00000008 
UIDUCB$L_DEVCHAR2 = 0000000F 
UIDUCBS$W_NUMBER = 00000007 


PSECT name Allocation PSECT No. Attributes 


$s 0000000 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS ~ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
$ 000001 ( $3°} 1 ¢( 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
_UETPSCODE 0000655 ( 1621.) 02 ¢ 2.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC BYTE 
ee rrr + 
H Performance indicators ; 
Phase Page faults CPU Time Elapsed Tim 
Initialization | § 8: : 8 
Command processing I :00: 


Pass 1 
pyato’ table sort 


ass : :00: 

Symbol table output 1 : :00: “f 

Psect synopsis output 1 : 8 :00:00. 
Cross-reference output 9 : : 3: 0 

Assembler run totals 87 725.6 :00:51.4 

Ihe working se Limit was 1950 pages. 

94086 bytes ( pages) of virtual memory were used to buffer the intermediate 
There were 90 pages of symbol table space an teestes to hold 1505 non-local ae 
1331 source Lines were read in Pass 1, producing object records in Pass 2. 


6 : 
248 : 


£8 Focal symbols. 
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VAX-11 Macro Run Statistics -SEP-19 Y.$ REI CLSIODB.MAR;1 


31 pages of virtual memory were used to define 30 macros. 


bam awa nese nas meen see e see see & 


! ; Macro Library statistics ! 


ene ewe eee moe aaa e mew ae ao } 


“333 SSDUAse: F3y8-083 dts 
33gfUA SySCIBISTARL 

TOTAcs (all Libraries) 

1647 GETS were required to define 27 macros. 


if 
LB:2 14 
27 


There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:CLSIODB/0BJ=0BJ$:CLSIODB MSRC$:CLSIODB/UPDATE=(ENH$:CLSIODB) +EXECML$/LIB+SHRLIBS$:UETP/LIB 


Macro Library name Macros defined 


AH-BT13A-SE 
VAX/VMS V4.0 _ 


PMENT CORPORATION 
_AND PROPRIETARY 


DC 
~~ 


